home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs12.d81 / nw126-2.sda / NET1.26-INIT.MRG (.txt) < prev   
Commodore BASIC  |  2009-10-10  |  193b  |  8 lines
  1. 1130 IFA=OP%ANDA<>VAL(T$)THENVS=.
  2. 10232 DIMD(11),H$(11):FORI=.TO9:INPUT#8,D(I),H$(I):NEXT:D(10)=8
  3. 12091 GOSUB26210:OV=2:GOTO97
  4. 12092 GOSUB29010:TI$="000000":IFSC<0THEN12010
  5. 13020 IFA=>OP%ANDA<=CL%THEN13040
  6. 13040 FORI=1TONN%:IFN%(I)THEN13060
  7. 13050 NEXT:RETURN
  8.